home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / game / think / newmastermind.lha / newmastermind / install next >
Text File  |  2000-11-08  |  4KB  |  116 lines
  1. ;;; -*-scheme-*-
  2. ;;; Installation script for newmastermind
  3. ;;;
  4. ;;; Copyright (C) 1994-2000 Håkan L. Younes (lorens@hem.passagen.se)
  5.  
  6. ;;; Strings
  7.  
  8. (set #how-install
  9.      (cat "Do you want to install the whole program or just update the "
  10.           "language catalogs?"))
  11.  
  12. (set #how-install-help
  13.      (cat "Choose \"Install whole program\" if you are installing from "
  14.           "scratch or if you are updating an old version.\n"
  15.           "\nChoose \"Update languages\" if you want to install new "
  16.           "language catalogs."))
  17.  
  18. (set #how-install-1 "Install whole program")
  19. (set #how-install-2 "Update languages")
  20.  
  21. (set #where-install
  22.      "Choose location where you want to install NewMasterMind.")
  23.  
  24. (set #where-languages
  25.      "Where do you want to install the language catalogs?")
  26.  
  27. (set #where-languages-help
  28.      (cat "This lets you choose if you want the language catalogs to be "
  29.           "copied to the same location as the rest of the program, or if "
  30.           "you want to have them in the global Catalog dir."))
  31.  
  32. (set #which-languages
  33.      "Which languages do you want NewMasterMind to support?")
  34.  
  35. (set #which-languages-help
  36.      (cat "Check all languages you want NewMasterMind to support.\n"
  37.           "\nIf a language is already installed and you don't check it, "
  38.           "it will be removed."))
  39.  
  40. ;;; Procedures
  41.  
  42. (procedure install-program
  43.        (set @default-dest prog-dest)
  44.        (copylib (source (tackon sourcedir "NewMasterMind"))
  45.             (dest prog-dest))
  46.        (copylib (source (tackon sourcedir "NewMasterMind.guide"))
  47.             (dest prog-dest)))
  48.  
  49. (procedure install-icons
  50.        (copyfiles (source icon-srcdir)
  51.               (dest prog-dest)
  52.               (choices "NewMasterMind.info"
  53.                    "NewMasterMind.guide.info"))
  54.        (tooltype (dest (tackon prog-dest "NewMasterMind"))
  55.              (noposition))
  56.        (tooltype (dest (tackon prog-dest "NewMasterMind.guide"))
  57.              (noposition)))
  58.  
  59. (procedure install-locales
  60.        (set where-languages (askchoice (prompt #where-languages)
  61.                        (help #where-languages-help)
  62.                        (choices locale-dest
  63.                             locale-sysdest)))
  64.        (if (= where-languages 1)
  65.            (set locale-dest locale-sysdest))
  66.        (set which-languages (askoptions (prompt #which-languages)
  67.                         (help #which-languages-help)
  68.                         (choices "Dansk"
  69.                              "Svenska")))
  70.        (set locale "dansk")
  71.        (if (IN which-languages 0)
  72.            (install-locale)
  73.            (remove-locale))
  74.        (set locale "svenska")
  75.        (if (IN which-languages 1)
  76.            (install-locale)
  77.            (remove-locale)))
  78.  
  79. (procedure install-locale
  80.        (makedir locale-dest)
  81.        (makedir (tackon locale-dest locale))
  82.        (copylib (source (tackon (tackon locale-srcdir locale)
  83.                     "newmastermind.catalog"))
  84.             (dest (tackon locale-dest locale))))
  85.  
  86. (procedure remove-locale
  87.        (delete (tackon (tackon locale-dest locale)
  88.                "newmastermind.catalog"))
  89.        (if (NOT (= locale-dest locale-sysdest))
  90.            ((delete (tackon locale-dest locale))
  91.         (delete locale-dest))))
  92.  
  93.  
  94. ;;; Main program
  95.  
  96. (set sourcedir (pathonly @icon))
  97. (set icon-srcdir sourcedir)
  98. (set locale-srcdir (tackon sourcedir "Catalogs"))
  99. (set locale-sysdest "LOCALE:Catalogs")
  100.  
  101. (set prog-dest (askdir (prompt #where-install)
  102.                        (help @askdir-help)
  103.                        (default @default-dest)))
  104.  
  105. (set how-install (askchoice (prompt #how-install)
  106.                             (help #how-install-help)
  107.                             (choices #how-install-1 #how-install-2)))
  108.  
  109. (if (= how-install 0)
  110.     ((install-program)
  111.      (install-icons))
  112.     (set @default-dest ""))
  113.  
  114. (set locale-dest (tackon prog-dest "Catalogs"))
  115. (install-locales)
  116.